home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Languages Suite
/
ProgLangD.iso
/
TURBOPASCAL WIN
/
OWLDEMOS.PAK
/
HELLOAPP.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-06-08
|
926b
|
36 lines
{************************************************}
{ }
{ Turbo Pascal for Windows }
{ Demo program }
{ Copyright (c) 1991 by Borland International }
{ }
{************************************************}
program Hello;
uses WObjects, WinTypes, WinProcs;
type
{ Define a TApplication descendant }
THelloApp = object(TApplication)
procedure InitMainWindow; virtual;
end;
{ Construct the THelloApp's MainWindow object }
procedure THelloApp.InitMainWindow;
begin
MainWindow := New(PWindow, Init(nil, 'Hello, Turbo Pascal World'));
end;
{ Declare a variable of type THelloApp }
var
HelloApp: THelloApp;
{ Run the HelloApp }
begin
HelloApp.Init('HelloApp');
HelloApp.Run;
HelloApp.Done;
end.